#102.1
e <- exp(1)
d <- 15
biomassa1 <- (e^-1.7953) * (d^2.2974)
h <- 12
biomassa2 <- e ^ ((-2.6464) + (1.9960 * log(d)) + (0.7558 * log(h)))

#102.2
letra.a <- letters[rep(c(1),times=6)]
numeros <- rep(c(1,2,3), each=3)
decrescente <- c(rep(1,3),rep(2,2),3)
sequencia <- seq(from=1, to=5, length = 5)
impares <- c(seq(from=1, to=5, length = 5), seq(from=4, to=1))

#102.3
luz <- c(9839, 10149, 10486, 10746, 11264, 11684, 12082, 12599, 13004, 13350, 13717, 14052)
luz.cons <- diff(luz)
luz.m <- mean(luz.cons)
luz.md <- median(luz.cons)
luz.v <- var(luz.cons)
luz.range <- range(luz.cons)

#102.4
r <- 13.5/2
arvore1 <- pi*r^2
r1 <- 7/2
r2 <- 9/2
r3 <- 12/2
arvore2 <- (pi*r1^2)+(pi*r2^2)+(pi*r3^2)

#102.5
pesos <- c(78.4, 79.8, 76.0, 75.3, 77.4, 78.6, 77.9, 78.8, 79.2, 75.2, 75.0, 79.4)
media <- mean(pesos)
pesos.d2 <- c((78.4-media)^2,(79.8-media)^2,(76-media)^2,(75.3-media)^2,(77.4-media)^2,(78.6-media)^2,(77.9-media)^2,(78.8-media)^2,(79.2-media)^2,(75.2-media)^2,(75-media)^2,(79.4-media)^2)
pesos.d2s <- sum(pesos.d2)
pesos.v <- pesos.d2s/(12-1)
pesos.ds <- sqrt(sum(pesos.d2))
pesos.s <- sqrt(pesos.v)

#102.6
a<-pt(2.2,19,lower.tail=F)
b<-pt(-2.2,19)
teste.t<-a+b
limite<-qt(0.025,19,lower.tail=F)